﻿Public Class TMyColumnType
    Private _ColumnTypeName As String
    Private _ColumnType As TColumnType
    Public Enum TColumnType As Integer
        dtNumeric = 0
        dtDateTime = 1
        dtString = 2
        dtSpatial = 3
    End Enum
    Public Sub New(ByVal AName As String, ByVal AType As TColumnType)
        _ColumnTypeName = AName
        _ColumnType = AType
    End Sub
    Public ReadOnly Property ColumnTypeName() As String
        Get
            Return _ColumnTypeName
        End Get
    End Property
    Public ReadOnly Property ColumnType() As TColumnType
        Get
            Return _ColumnType
        End Get
    End Property
End Class
